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202 TTLSS MACHINE CONSTANTS COSNOV?77] 
203 
204 * BITS FOR REPEAT INSTRUCTIONS 
205 x 
206 HEAD M M FOR MACHINE 
902000 207 RT AL BOOL 2000 TALLY POSITION 
9071000 208 ABIT BOOL 19000 INCREMENT FIRST REGISTER ON RPD 
000409 209 BBIT BOOL 400 INCREMENT SECOND REGISTER ON RPD 
000200 210 CBIT BOOL 200 LOAD XO FROM BITS O-17 OF INSTRUCTION 
900100 24) TZE BOOL 100 TERMINATE IF ZERO INDICATOR ON 
000040 242 TNZ BODE 40 TERMINATE IF ZERO INDICATOR OFF 
N00020 213 TMI BOOL 20 TERMINATE IF NEGATIVE INDICATOR ON 
900010 214 TPL BOOL 10 TERMINATE IF NEGATIVE INDICATOR OFF 
ODO0004 215 TRC BOOL 4 TERMINATE IF CARRY INDICATOR ON 
000002 216 TNC BOOL 2 TERMINATE IF CARRY INDICATOR OFF 
000001 217 TOV BOOL 1 TERMINATE IF OVERFLOW INDICATOR ON 
218 * 
219 * BITS WE USE IN INDICATOR REGISTER 
220 * 
NO4000 227 OVMSK BO.0t 4000 MASK TO STOP FAULT ON OVERFLOW 
901000 222 PERR BOOL 1000 SIT INDICATING A PARITY ERROR 
009400 223 PMSK BOOL 409 MASK TO STOP FAULT ON PARITY ERROR 
000200 224% MMODE BOOL 200 MASTER MODE SIT 
009040 225 MWRD BOOL 40 MULTI-WORD INTERRUPT INDICATOR 
000001 226 SQUEZ BOOL 4 NOT A REAL INDICATOR BIT» SAYS JOB IS SQUEEZED 
cor x 
228 * DCW MANIPULATION BITS 
229 k 
N9909n00 230 1OTD BOOL 000000 IOTD ACTION CODE FOR DCwWS CO8AUG77] 
OT ROG? 251 IGTP BOOL 017100090 IOTP ACTION CODE FOR DCWS CO8AUG77) 
020000 oe TDOCW BOOL 020000 TOCW ACTION CODE CO8AUG77) 
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236 CO8AUG77) 
O0490000 237 NCB BOOL 40000 NO CHANGE BIT FOR LPW 
700000 258 IoCwW ROOL 700000 IDCW IDENTIFICATION BITS COSNOV77) 
040900 239 EC BOOL 040000 IDCW BIT TO CHANGE THE ADDRESS EXTENSION COSNOV77] 
020000 240 CONT BOOL 020000 IDCW BIT TO SPECIFY COMMAND CHAINING COSNOV?77) 
244 * 
24? * 
243 * PUB AND DEVICE DEFINITIONS» MOSTLY FOR IOM USE 
244 * 
9000174 245 PBMAX EQU 31%*4 MAX PUB NUMBER,» ADJUSTED FOR I/0 
900040 246 PBPAY EQU B*4 FIRST PAYLOAD CHANNEL ON IOM 
000174 247 PBMSK EQU 31%*4 MASK FOR ADJUSTED PUB FIELD 
000077 248 DVMAX EQU 63 LARGEST PERMISSIBLE DEVICE NUMBER 
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BOOL 000400 
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BOOL 000020 
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LOWER 
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BOOL 000010 
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* CSS 
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368 TTLSS FILE CONTROL BLOCKS CO9DEC79) 
369 * LO9DEC79) 
370 HEAD F 
000000 371 ACC EQU 0 UPPER - ACCESS WITH WHICH FILE IS OPEN 
000000 372 TYPE EQU 0 LOWER - PREFERENCE / TYPE 
000001 373 ASZ30RT EQU 1 UPPER - WHEN BUSY», PTR TO CONTROLLING LIST EL 
374 IF SIGNED, PTR TO BLOCK FOR RESET STATUS 
SD IF MESSAGE EXISTSs PTR TO SUPRA TRAP 
009001 376 RET EQU 1 LOWER - FRN IN SUPRA JOB IF A PASSED FILE 
a77 IF A BUSY CM, FRN AT CURRENT SLAVE END 
N00002 378 CAT EQu 2 IF REGULAR CATALOGED FILE -- 
000000 379 UPPER ~ POINTER TO CSUSE LIST ENTRY 
380 LOWER - MAXIMUM ACCESSES ALLOWED ON FILE 
ONN000 381 IF SHARED FILE -=- 
000000 382 UPPER - FRN OF DATA FCB + SIGN BIT 
000000 383 LOWER - MAXIMUM ACCESSES ALLOWED ON FILE 
334 IF COMUNICATIONS FILE -- 
385 UPPER ~- POINTER TO THE TABLE ENTRY FOR THE MASTE 
336 LOWER -- POINTER TO THE TABLE ENTRY FOR THIS END 
000003 387 M EQU 3 UPPER -- IF A BUSY CS, TRAP LOCATION 
388 IF A BUSY JOB FILEs TRAP LOCATION 
389 IF IN CS COPY, FR OF COMM FILE 
399 IF MESSAGE EXISTS,» LOC IN SUPRA 
391 LOWER - IF A BUSY CM, LENGTH LEFT TO COPY 
392 IF A BUSY CS» FRN OF OTHER END 
393 IN INITIAL SWAP FCB, FRN OF SUPRA JOB 
394 IF MESSAGE EXISTS» MESSAGE LENGTH 
000004 395 POINT EQU 4 FILE POINTER 
395 WHEN DEST. FILE, DEBIT TO SS$SCRW OR SSCATW 
000905 397 N EQU 5 FILE LENGTH OR CATALOG MAX 
398 ZERO FOR JOB FILES MEANS JOB TERM'D 
900006 399 DA EQU 6 FIRST DEVICE ADDRESS 
400 * 
401 * FORMAT OF DATA FCS FOR SHARED FILES 
402 * 
403 ACC 0 ACCESSES = O 
404 TYPE 0 TYPE OF FILE BEING SHARED IN PREF FIELD 
goo0000 405 TYPE FIELD = FSDATA 
4045 A30RT 1 ABORT = BSSIGN (NOT ABORTABLE) 
407 RET 1 RET = TRAP LOCATION FOR MME 
408 CAT 2 UPPER = POINTER TO MASTER CS$USE 
gogo00 409 LOWER - POINTER TO OUR CSUSE 
0090003 419 PT 4 EQU 3 SOURCE FILE POINTER SAVED HERE 
900004 411 PT2 EQU 4 DEST FILE POINTER SAVED HERE 
000005 412 CPL EQU 5 COPY LENGTH 
900006 413 SFR F QU 6 UPPER - FRN OF SOURCE FILE OF COPY 
000006 414 DFR EQU SFR LOWER - FRN OF DESTINATION FILE 
000007 415 WOC EQU 7 MAX DEBIT TO CATW 
000010 416 DATL EQU 8 LENGTH OF DATA FCB 
E47 * CO9DEC79I 
418 UPPER ACC +ABORTsSFR CO9DEC79I 
419 LOWER TYPESRET*/DFR 
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FAULT CHANNEL * 4 16AUG74 
CONNECT CHANNEL * 4 16AUG74 
SNAPSHOT CHANNEL * 4 T6OAUG74 
WRAP AROUND CHANNEL * 4 1T6AUG74 
BOOTLOAD CHANNEL * 4 16AUG74 
SPECIAL STATUS CHANNEL * 4 16AUG74 
SCRATCH PAD CHANNEL * 4 T6AUG74 
RELATIVE LOCATION OF LPW IN MBX T6AUG?4 
RELATIVE LOCATION OF LPWX IN MBX 16AUG74 
RELATIVE LOCATION OF SCW IN MBX 1T6AUG74 
RELATIVE LOCATION OF DCW IN MBX 16AUG74 
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919 
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924 
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2.29 
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835 
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FF 
9338 
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EJECT 


IOM C 


HEAD 


EQU 


EQu 


EU 


OMMUNICATIONS AREA 


X 

VSMBX 128 WORDS 
VBIMW 32 WORDS 
VSSISTK 32 wORDS 
MBX+CONCH+2 WHERE WE 
PCWAt1 SAME FOR 
1 BOOTLOAD 


PROTECTED CORE LOCATIONS: 


HEAD 


BITS 


HEAD 


BOOL 


Z 


FOR ISQUEWD 


B 


00010C RET CODE 


-- 4 WORD MAILBOXES FOR 32 CHANNELS 

~~ INTERRUPT WORDS - ONE PER CHANNEL 

“~- SYSTEM INTERRUPT STATUS STACK 

PUT PCWA FOR I/0 

PCWB 

PCWB CONTAINING CHANNEL NO AND IOM PORT 
16AUG74 
T6AUG74 


16AUG74 
16AUG74 


FIELD 
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329000 
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349000 
351009 
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360000 
370000 
371000 
400000 
479009 
4290000 
439090 
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432000 
433000 
600000 
610000 
620000 
630000 
640000 
650000 
660000 
670000 
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964 
965 
966 
967 
968 
969 
rage 
971 
972 
TIS 
974 
or 
976 
977 
978 
979 
939 
9381 
982 
983 
984 
985 
986 
987 
988 
759 
990 
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MDRS 
MDAR 
MDAS 
MORV 
MDNR 
MDSB 
MDSD 
MOSE 
MDDI 
MDD2 
MDD3 
MDD4 
MDDS 
MDSH 
MDSL 
MDSA 
MDSP 
MDFR 
MDBR 
MD FF 
MDBF 
MDER 
MDDSE 
MDEF 
MDWO 
MDRW 
MDRU 
MDRD 
MDMR 
MDRH 
MDFTO 
MDFT1 
MDFT2 
MDFT3 
MDWR 
MOMW 
MDWI 
MOWV 
MDLC 
MOLM 
MOLP 
MDDS 
MDDG 
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ISMODE~-MODE OF OPERATION 


THIS IS A CODE SPECIFYING THE TYPE OF OPERATION. 


THE FOLLOWING 


HEAD 


BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
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070000 
100000 
1190000 
140000 
150009 
200000 
219000 
220000 
231000 
232000 
233000 
234000 
235000 
240000 
250000 
260000 
270000 
300000 
310000 
320000 
330000 
340000 
357.000 
359000 
360000 
370000 
371000 
400000 
419000 
420000 
430000 
431000 
432000 
433000 
600000 
610000 
620000 
630000 
640000 
650000 
660000 
670000 
700000 


IT MAY HAVE 


RESET MPC,/CONSOLE 

AWAIT READY 

AWAIT SPECIAL INTERRUPT 

USE NORMAL ERROR RECOVERY 
SUPRESS ALL ERROR RECOVERY 

SET BINARY COR H716 NORMAL MODE) 
SET DECIMAL (OR H716 DUMP MODE) 
SET ASCII <--> EBCDIC MODE FOR 9 TRACK TAPES 
SET. 200 BPA 

SET 356 BPI 

SET 800 BPI 

SET 1600 BPI 

SET 6250 8PI 

SET DEFAULT HIGH DENSITY 

SET DEFAULT LOW DENSITY 

SET ASCII 

SET FILE PROTECT 

FORWARD SPACE RECORD 

BACKSPACE RECORD 

FORWARD SPACE FILE 

BACKSPACE FILE 

WRITE BLANK TAPE/ CONSOLE ALARM 
DATA SECURITY ERASE 

WRITE END-OF-FILE 


XX WRITE ONE CHAR RECORD XX 


REWIND 

REWIND AND UNLOAD 

READ 

MULTI RECORD READ 

READ TRACK HEADER (DISK) 
FORMAT TRACK CDISK) QO 


WRITE 

MULTI RECORD WRITE 

WRITE IMAGE CPRINTER) 
WRITE VFC (PRINTER) 

LOAD CONTROL STORE (MPC) 
LOAD MAIN MEMORY (MPC) 
LOAD PERSONALITY (CMPC) 
READ DETAIL STATUS 


XXXXX DIAGNOSTIC=-SPECIAL FORMAT XXXXX 
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I DEFINITIONS =-PHYSICAL 1/0 DEFINITIONS 
991 * 
992 * INCLUDED HERE ARE SYMBOLS TO REFERENCE THE CATALOG TRACKS LIMITS 
993 x TABLE ENTRIES. 
994 . * 
O00000 995 CNLOW BOOL 0 OFFSET FOR LOWER ADDRESS LIMIT 
909001 996 CNUPR BOOL 1 OFFSET FOR CATALOG TRACKS UPPER LIMIT 
997 * RREG 
998 
999 
7000 HEAD 0 
1001 
902309 1002 CP Iie EQU VBCFILE BEGINNING OF CORE FILE POINTERS 
3003 
19004 HEAD zZ 
1005 
0001090 1006 LLEN EQU Ze? LENGTH OF DCw LIST BLOCK FOR DISK BOOT 
1007 * 
190908 * QUEUE SETS UP A QUEUE DESCRIPTER VECTOR 
10909 * WHICH HAS THE FOLLOWING FORM, 
40179 * 
1011 * WORD CONTENT 
1012 * soot is eas mw a ai dik os api 
1013 * =] GSNPRI (0-17) QBBUSY(18-35) 
1974 x 0 QESTARTCO-17) 0¢€30-35) 
1015 * 1 QBINDEX(0-17) TAG (30-35) 
1018 x ante se eas ves 
1017 * NPRI eas anes 
1073 * 
1919 * 
1029 * 
1021 HEAD Q 
1022 a 
CETTE  FO2S NPRI EQU -1 UPPER HALF-~NUMBER OF PRIORITY LEVEL 
Cee OL 1924 BUSY EQU all | LOWER HALF--POINTER TO ACTIVE BLOCK 
900001 1025 INDEX EQU +4 START OF PRIORITY INDEXES 
NOV0009 1026 START EQU 0 FIRST ENTRY IN QUEUE 
1027 x 
1928 UPPER NPRI CO9DEC79) 
1029 LOWER BUSY CO9DEC79] 
1039 x CO9DEC?79) 
10374 * TIMER QUEUE LIST ELEMENT DEFINITION 
1032 * 
L254 * 
1034 HEAD X 
1035 
9000001 1036 TIM EQU 1 PLACE WHERE TIME IS STORED 
1037 * 
1038 * * CSS ** 
1039 * ' 
1040 * SCHEDULING FACTOR COMMONLY REFERRED TO ENTITIES CSs 
1041 * 
000017 1042 WORP EQU 15 PRIORITY NUMBER WHERE WORST IS DEFINED 
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1049 

1050 

10517 

1052 

000001 1053 
000002 1054 
000003 1055 
000004 1056 
OUQ00S: A057 
000006 1058 
0300007 1059 
090010 1060 
000011 1061 
990012 1062 
300013 1064 
0000714 1064 
9000715 19065 
900016 1066 
900017 1047 
0900020 19068 
900021 1069 
000022 1072 
990023 1071 
009024 107°? 
PO002>. 1075 
1074 

Q00026 1075 
1074 

1077 

1078 

1079 

1980 

JYO90901 1931 
900002 1032 
990903 1083 
JQO0004 1084 
0900005 1085 
Q00006 1036 
909007 10387 
009010 10828 
000011 1089 
900012 1099 
000013 1091 
000014 1092 
000015 1093 
1094 

000016 1095 


DTSS EXECUTIVE 


e & e + 


D170 
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D167 


DUAL 
TAP? 
TAPY 
CON 

ROR 

PN10 
P201 
DN 30 
PN 30 
D191 
H716 
P301 
P4090 
MPC 

M451 
L4 


PTYMX 
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EQU 
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EQU 
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EQU 
EQU 
EQU 
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EQU 
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EQU 
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PERIPHERAL 


HEAD 


EQU 
EWU 
EQU 
EQuU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQuU 
EQU 
EQU 


EQU 
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(THE VALUES IN USPTYPE) 


DSS170(02314) AND DSS1780 
MDU207 DRUM 

DSS167 DISK 

SPARE 

SPARE 

SPLIT DEVICE (DUAL DRUMS) 
¢ TRACK MAG TAPE 

9 TRACK MAG TAPE 
CONSOLE 

CARD READER 

1700 CPM CARD PUNCH 
PRT201 PRINTER 

DATANET 30 

300 CPM CARD PUNCH 
DSS191 AND MSU400 DISK 
HISI 716 

PRT301 PRINTER 

PRT400 AND PRU1200/1600 PRINTER 
MPC 

MSU451 DISK 

HIST LEVEL. 6 FEP 


MAX+17 LEGAL PHYSICAL DEVICE TYPES 


ALLOCATION TYPES (CTHE VALUES IN DOSATYPE) 


MDU201 DRUM 

DSS170¢2314) AND DSS1890 FILE TRACKS 
0$S8170¢2314) AND DSS180 CATALOG TRACKS 
DSS167 DISK 

SPARE 

SPLIT DEVICE (DUAL DRUMS) 

DSS179¢€2314) AND DSS180O ENTIRE PACK. 
DSS191 AND MSU400 DISKs ENTIRE PACK 
DSS1971 AND MSU400 DISKs CATALOG TRACKS 
DSS191 AND MSU400 DISKs FILE TRACKS 
MSU451 DISK» ENTIRE PACK 

MSU451 DISKs CATALOG TRACKS 

MSU451 DISK, FILE TRACKS 


MAX + 1 LEGAL ALLOCATION TYPE 
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O 1096 TTLS GENERAL PURPOSE MACRO DEFINITIONS 
1097 x 
O 1098 * 
1099 * MACRO TO CALL ALLOCATION ROUTINE TO ALLOCATE N WORDS OF A GIVEN PREF. 
1100 * CALL WITH T POINTING TO A CONTROL LIST ELEMENTs ARGUMENT #41 IS No #2 
OQ 1101 * IS OK RETURN», #3 IS ERROR RETURN FOR OUT OF STORAGEs #44 IS PREFERENCE, 
Ase * IF ARGUMENT #5 IS ‘*GET* THEN THE MACRO WILL GENERATE A GET OF 
1103 x THE NECESSARY CONTROL LIST ELEMENT. 
O 1104 * 
1105 ALC MACRO NeOKeNOK/PREF, (GET) 
. 1105 IFE "HS', "GET '»1 
O 1107 SETD 8 GET A CONTROL LIST ELEMENT FOR ALLOCATION 
1103 LDA #4 GET LENGTH TO ALLOCATE 
11909 STA KBNDA,T SAVE IN LIST ELEMENT 
O 17110 LDA #2,DU OK RETURN 
1171 ADA #3,DL ERROR RETURN 
1112 STA KSRET,T SAVE RETURN FROM ALLOCATION 
CO) 1113 LDA HY GET PREFERENCE 
1114 STA KSTYPE.T SAVE FOR ALLOCATION 
ELS TRA KSBALC ALLOCATE A BLOCK CO9DEC79II 
O 1116 ENDM ALC 
EVEL * 
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LIST ELEMENT MACRO DEFINITIONS 


Le 


MACRO 
EAX 
TSXO 
ENDM 


MACRO 
TSXO 
END™M 


LIST ELEMENT MACRO DEFINITIONS 


POINTER 
XH 
ESPROTO 
PROTO 


ESINVT 
INVERT 


COPY PROTOTYPE LIST ELEMENT 
POINT TO PROTOTYPE 
CALL SUBROUTINE TO COPY 


INVERT TOP TWO ELEMENTS OF LIST 
CALL SUBROUTINE 
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1132 
L335 
1134 
1135 
1136 
th We 
1138 
1139 
4140 
1141 
T1442 
L435 
1144 
VTA 
1146 
1147 
1148 
1149 
4150 
1157 
1152 
HB bes we: 
1154 
1155 
TAS 
ETS 
1158 
1159 
1160 
1161 
1162 
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1164 
1165 
1164 
1167 
1168 
1169 
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PROC 


EXECUTIVE CINSERT SEGMENT) DTSS TRADE SECRET PAGE 
MULTI-PROCESSOR CODE GENERATION MACROS 
TEES MULTI-~PROCESSOR CODE GENERATION MACROS 


A P R 0 C 
THIS MACRO REPEATS THE MACRO ARGUMENT ONCE FOR EACH 
PROCESSOR NUMBER IN THE SYSTEMs UP TO A MAXIMUM OF 
EIGHT PROCESSORS. 


MACRO MACRO~-NAME 


PMC SAVE*OFF 

CRSM SAVE*sOFF 

PROS (Ort e2rd rhe Svrbol do (H1) 7-082) 
CRSM RESTORE 

ENDM™ APROC 


S) id R 0 C 
THIS MACRO REPEATS THE MACRO ARGUMENT ONCE FOR EACH NON 
CONTROL PROCESSOR IN THE SYSTEM, UP TO A MAXIMUM 
OF EIGHT PROCESSORS. 


MACRO MACRO-NAME 


PMC SAVEsOFF 

CRSM SAVESOFF 

PROS C1 ee rd rhe wr be To SHV) CHO) 
CRSM RESTORE 

ENDM SPROC 


PROS IS A SUBSIDIARY MACRO CALLED 8Y APROC AND SPROC 


MACRO LIST/NAME 


PMC RESTORE 

IDRP #1 

IFL H1/ENPROS24 16AUG74 
IFE aa daa 

He #1 

INE PHS? 

He H3#1 

IDRP 

ENDM PROS 
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INTERRUPT CONTROL MACROS 


TTLS INTERRUPT CONTROL MACROS 

* 

* 

* 

k MACROS TO MASK INTERRUPTS ON/OFF 

* 

DABL MACRO 
RMCM XSMEM READ MASK FROM MEMORY CONTROLLER 
ANAQ XSDABL DISABLE SPEC-INIT-TERM-MARK 
SMCM XSMEM SET NEW MASK 
ENDM DABL 


* 


ENA3L MACRO 


RMCM XSMEM READ MEMORY CONTROLLER MASK 
ORAQ XSENABL ENABLE SPEC~TERM-MARK=~CPAR 
SMCM X3MEM SET THE MASK 

ENDM™ ENABL 
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BUG ~~ DESTROY REGISTERS 
PTs BUG ~~ DESTROY REGISTERS 


OW + & & & & FF eH Fe Oe OOH OOOOH HOH 


BUGA 


BUGBUG MUST BE DEFINED WITHIN THE SEGMENT WHICH USES IT. FOR 
DEBUGGING CLARITYs IT MUST BE INITIALIZED TO A DIFFERENT VALUE FOR 
EACH SEGMENT. HERE IS A LIST OF BUGBUG VALUES FOR THE SEGMENTS. 

IT SHOULD BE ADDED TO WHEN ANOTHER SEGMENT BUGS ITS REGISTERS. 


MMES -- 750000(8) 
UTIL == 73010068) 
LOG ‘==. 75020008) 


NEXT SEGMENT TO USE IT SHOULD SET IT TO 750300(¢8) 


THIS MACRO GENERATES CODE THAT LOADS A DISTINCTIVE PATTERN 
INTO THE REGISTERS MENTIONED IN THE ARGUMENT LIST. THIS IS 
TO INSURE THAT REGISTERS ARE NOT ACCIDENTALLY CORRECT,» SO 
THAT ERRORS MAY BE DETECTED AT AN EARLY PHASE OF THE DEBUGGING. 


THE USAGE OF THIS MACRO IS BUG (A4Q-0-T,X3) 

WHERE THE REGISTERS IN THE LIST ARE THOSE WHICH WILL BE 
DESTROYED. THE REGISTERS MENTIONED ARE ASSUMED TO BE INDEX 
REGISTERS UNLESS A OR @ OR AQ 


MACRO 

IFE BUGBUG,s0,1 

YOU MUST DEFINE BUGBUG FOR THIS SEGMENT. SEE BUG MACRO IN INSERT 
INE $DEBUG/045 SKIP IF NOT DEBUGGING 

PMC SAVEsOFF 

IDRP #1 

BUGA #4 BUG ALL REGISTERS FROM CALL 

IDRP 

PMC RESTORE 

ENDM BUG 

MACRO SUBSIDIARY MACRO TO BUG ONLY ONE REGISTER 
CRSM SAVE*sON CREATE SYMBOLS 

PMC ON LIST OUR USES 

IFE "H1*,*A',A ASSEMBLE FOLLOWING BLOCK IFF WE ARE BUGGING R-A 
LDA BUGBUG,DU 

ORA BUGBUG,DL 

Oe Ov1/E0M IGNORE THE REST OF THIS 

MARK 

IFE "#1", *"Q',>Q ASSEMBLE NEXT BLOCK IFF BUGGING R-Q 

LDQ BUGBUG,DU 

ORG BUGBUG,DL 

IFE O-1,/,EOM SKIP TILL END OF MACRO 

MARK 
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EOM 


BUGBUG 


BUG = 


Pee 
LDA 
ORA 
LDQ 
ORQ 
LEE 
MARK 


LDX 
LFE 
MARK 
PMC 
oy mg 
CRSM 
ENDM™ 


DTSS TRADE 


DESTROY REGISTERS 


"HI", *AQ*',AQ 
BUGBUG,DU 
BUGBUG,DL 
BUGBUG,DU 
BUGBUG,DL 
Or1,EOM SKIP TILL END 


NEXT BLOCK IFF BUGGING R-AQ 


#1,BUGBUG,DU 


071/E0OM 

OF KEEP THE LISTING NEET 
BUGBUG +3 INCREMENT BUGGING CONSTANT 
RESTORE 

BUGA 
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CKPT =~ CHECKPOINT MACRO 
1256 CTLs CKPT -- CHECKPOINT MACRO 
12o>¢ * 
1258 * 
1259 * 
1260 CKPT MACRO FOLLOWED BY A NUMBER FROM 0-35 
1261 INE SDEBUG,0-1 SKIP IF NOT DEBUGGING 
1262 XED SCKPT 
1209 ENDM CPT. 
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1264 
1265 * 
1266 * 
1267 * 
1268 * 
1269 * 
er * 
1271 * 
1272 x 
1273 * 
1274 * 
1275 Q 
1276 

1277 QSET 
1278 

1279 QSET 
1280 

1281 #1 
1282 
1233 
1234 
1285 
1236 
1237 
1288 
12389 
1290 
1297 
1292 
1293 
1294 
1295 
1296 
1297 
1298 


Te e & & & HH eH 


QUEUING MACROS 


TTS QUEUING MACROS 


Q U E U EE 


THE USAGE OF THIS MACRO IS QUEUVE-Q2DV-PRIOR WHERE QDV IS THE 
NAME TO BE ASSIGNED TO THE QUEUE, AND PRIOR IS AN OPTIONAL 
NUMBER OF PRIORITY LEVELS TO BE ASSIGNED, SET TO 2 IF NOT SPECIFIED, 


MACRO 

CRSM SAVE sOFF 

SET 2 ASSUME 2-LEVEL QUEUE 

INE H2,'' UNLESS SPECIFIED OTHERWISE,IN 
SET He WHICH CASE USE THE SPECIFICATION 
ZERO QaseET,0 INITIALLY NOT BUSY 

ARG 0 LAST ELEMENT POINTER 

ARG 0 PRIORITY 1 INDEX 

INE QSETs172 CAN'T DUP O TIMES 

DUP 1/,QSET-1 DEVELOP REST OF QUEUE 

ARG *-1,N* INDIRECTION 

CRSM RES PORE 

ENDM QUEUE 


P 7 Q 


PTQ LOADS THE ADDRESS OF THE LIST ELEMENT ON THE TOP OF THE 
SPECIFIED QUEUE INTO THE SPECIFIED INDEX REGISTER. ITS USAGE 
IS PTQ XR-QDV WHERE XR IS THE REGISTER AND QDV IS THE ADDRESS 
OF THE QUEUE=DESCRIPTOR VECTOR, 


MACRO POINT TO QUEUE 
LDX H1 she LOAD POINTER TO LIST ELEMENT OR ZERO 
ENDM PTQ ZERO INDICATOR SET TF EMPTY QUEUE 


40 


O 


&: ©: iO © Oo: © © OO © oO oO G6 


marten. 


e 
O 
Oo INSERT 06/18/81 
D 
S 
O 
O 
O 
O 
S 
© 


Ce 3Of Or 1G) © 4 3G: 46. % GF 2: © 


06:56:28 


1299 
1300 
1301 
1302 
1303 
1304 
1305 
4306 
1307 
13038 
1309 
1319 
1311 
Toke 
T31S 
1314 
1315 
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1317 
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13e0 
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Toe2 
1323 
1324 
325 
reo 
boe7 
soca’ 
1329 
ba50 
1331 
Tr3S2 
1333 
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bo5D 
1336 
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13338 
1339 
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1341 
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Mm + ©. e + & & eH & He FH 


NQ 


QSET 


= t+ + & + + HF HH OH 


TQ 


QUEUING MACROS 


EJECT 


a N Q 


ENQ PLACES A LIST ELEMENT INTO A QUEUE AT THE PROPER PRIORITY 
LEVEL. ITS USAGE IS ENQ XRe-QDV/-PRIOR WHERE XR IS AN INDEX 
REGISTER WHICH POINTS TO THE LIST ELEMENT TO BE QUEUEDs aDdDvV 
IS THE QUEUE“NAME, AND PRIOR IS THE OPTIONAL PRIORITY 

OF THE ENTRY (2 ASSUMED IF NOT SPECIFIED) 


MACRO ENQUEUE 
CRSM SAVEsOFF 
INE H1 9X1 IF LIST ELEMENT NOT ALREADY IN X 
EAX Xe07#1 PUT IT THERE 
LPE "H2*s "SMTASK'sS5 CHECK FOR SMTASK 
INE "H3",1-2 CHECK FOR LOW PRIORITY TASK 
TSXO QSBATQL QUEUE WITH LOW PRIORITY 
IF E O-1 
FSXO QEMTQH QUEUE WITH HIGH PRIORITY 
LEE Osler? SKIP REST OF MACRO 
EAX Ye#e QUEUE-DESCRIPTOR VECTER 
INE "H3','Z* 44 . 
SET 2 ASSUME NO PRIORITY SPECIFIED 
INE #3,'** IF NOT BLANK 
SET #3 SET IV 40 SPECIFIED LEVEL 
EAX Ze QSET PRIORITY 
TSXO QZENR GO TO ENQUEUE CODE 
CRSM RESTORE 
FNDM ENQ 
M T a 


MTQ QUEUES THE TASK POINTED TO BY REGISTER T ON THE 
MASTER TASK QUEUE. IT'S FUNCTION IS IDENTICAL TO THE 
EXPANSION OF TENQ T,SMTASK', BUT REQUIRES LESS CODE 


MACRO QUEUE A MASTER TASK 
TSXO QHMTQ GO QUEUE THE TASK 
END™M MTQ 

MTaQaA 


MTQA QUEUES THE TASK BLOCK POINTED TO BY REGISTER T 
WITH THE RESTART LOCATION IN AL ON THE MASTER TASK QUEUE 


MACRO 
TSXO QEMTQA CALL SUBROUTINE TO QUEUE TASK 
ENDM MTQA 
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D QUEUING MACROS 

1351 * 
1352 x 
1353 * D E Q 
1354 * 
1355 * DEQ REMOVES THE TOP LIST ELEMENT FROM A QUEUE 
1354 i USAGE IS DEQ XRAQDV WHERE XR IS REGISTER WHICH WILL BE LOADED 
5 oe Og * WITH THE ADDRESS OF THE TOP ELEMENT OF THE QUEUE. QDV IS THE 
1358 * WUEUE-NAME, THE ZERO INDICATOR IS SET ON IF THERE 
1359 * WAS NO BLOCK ON THE QUEUE. 
1360 * 
1361 DE& MACRO DEQUEUE 
1362 EAX XrH2 LOAD QUEUE NAME 
1363 TSXO QSDER EXECUTE NECESSARY CODE 
1364 EAX #1,07Y LOAD REGISTER WITH LIST ELEMENT ADDRESS 
1365 ENDM DEQ 
1366 x 
1567 * 
1368 * . C1I70cT76) 
136) * MTASK a CREATE A NEW MASTER TASK WITH OPTICNAL PARAMETER [170CT76] 
13709 * THE CURRENT STACK OF LIST ELEMENTS WILL BE KEPT ONLY IF ‘KEEP’ £170CT76] 
1373 * IS SPECIFIED AS AN OPTIONAL THIRD PARAMETER C170CT76] 
VSL2 x C170CT76) 
1373 MTASK MACRO LOC/PARAMETERSKEEP C170cT76] 
1374 IFE Hote? Zo C170CT76] 
1375 GETD 1/NBUG C[170CT76] 
1374 IFE Cri79 C[170CT76] 
1377 GETD 2eNBUG Ci70cT76] 
1373 IFE "H2","ZERO'»Z2 C170CT76) 
1379 STZ 1,T PARAMETER IS ZERO C170CT76]) 
1380 IFE 0125 C170CT76) 
1331 IFE "Het oO STC 2 C1i70CT76) 
1338? STC 1oT PARAMETER IS IC/IR (NON-ZERO) C170CT76) 
1385 IFE Orvitve Ci7o0cTt7é) 
1384 LDA #2 PARAMETER IS #2 C170cT764) 
1385 STA 1,7 SAVE IT C170CT/76] 
1386 LDA #1 DL RESTART ADDRESS C170CT76) 
1337 MTQA QUEVE TASK TO START AT #1 C170CT76) 
133% IFE "H3"','KEEP'»22 C170CT764 
138% LDX Te TSLINK oT POP BACK LIST ELEMENT C170CT76) 
13906 IFE Os171 C170CT76) 
1391 LDX TAO/D0U SPPML C170cCT76) 
1392 ENDM MTASK C170CT76) 


@ Oe “GF 


Ce Ce wee 1 


} 
{ ? 
+ 


2 ae 2 2 @ ae © eee © ee © ee ee ee 


meres a ERR eaten, 


OW @. .©@ 


OG 2 © © GO CGC Oo boo oO oO oO So Oo SG 


INSERT 06/18/81 06:56:28 DTSS EXECUTIVE CINSERT SEGMENT) DTSS TRADE SECRET PAGE 43 
D LIST ELEMENT ALLOCATION MACROS 

1393 TTLS LIST ELEMENT ALLOCATION MACROS 
1394 * 
1395 * 
1396 * 
1397 x THE FOLLOWING MACROS MANIPULATE LIST ELEMENTS 
1398. * WHEN ENTERED XT POINTS TO WD 0 OF THE TOP ELEMENT OF A LINKED 
1399 * LIST CIF THE LIST IS EMPTY XT=0) WORD ~-1 OF A LIST ELEMENT 
1400 * CONTAINS UPPER A BACKWARD POINTER TO WD O OF THE PREVIOUS LIST 
1401 a LOWER THE LENGTH OF THIS ELEMENT NOT COUNTING THE LINK 
1402 * ALL MACROS POP AND PUSH XT AS APPROPRIATE 
1403 * 
1404 * THE GET MACRO RETURNS A LIST ELEMENT OR DIES TRYING. CALLS ARE 
1495 * GET (LENsI) LENGTH RIGHT JUSTIFIED IN LOCATION LEN 
1406 * GET AL LENGTH RIGHT JUSTIFIED IN AL 
14907 * GET AU LENGTH RIGHT JUSTIFIED IN AU 
14028 * GETD LENGTH EXPLICIT LENGTH 
1409 x 
14109 * EACH OF THESE MACROS HAS AN OPTIONAL SECOND PARAMETER ‘'NBUG'! C170cT76]) 
1411 * SPECIFYING THAT THE LIST ELEMENT SHOULD NOT BE BUGGED SINCE C170CT76) 
1412 * THE CALLING ROUTINE IS ABOUT TO FILL IT COMPLETELY. C170cT76] 
1413 * C170CT76] 
1414 GET MACRO CLENGTHs~I/AU/ AL) »-NBUG C170CT76) 
1415 INE "H1',*AU',S 
1416 INE MPa ge PALS 4 
1417 LDA #1 
1412 ALS 18 
1419 LEE ‘H2','*NBUG' >» 2 C170CT76) 
1420 TSXO ASGETNB CALL TO ENTRY THAT WILL NOT BUG THE LIST ELEMENT C170CT76) 
P24 IFE QO,1,1 C170CT76] 
1422 TSXO ADGET 
1423 ENODM GET 
1424 GETD MACRO LENGTHANBUG C[170CT76] 
1425 LDA #1,0U 
1425 So "a2", NBUG' 22 C170CT76) 
1427 TSXO A$GETNB CALL TO ENTRY THAT WILL NOT BUG THE LIST ELEMENT C1i70cT76] 
1428 IFE Or1+1 C170CT76) 
1429 TSX9 ASGET 
1430 ENDM™ GETD 
1431 * 
1432 x THE GETB MACRO RETURNS TO OK IF SUCCESSFUL AND TO NOT OK IF NOT. 
1433 * IF EITHER OF THESE FIELDS IS NULL» *+1 IS ASSUMED FOR THAT FIELD 
1434 x LENGTH IS AS IN GET 
1435 * COSNOV?77) 
1436 GETS MACRO CLENGTHsI/AL/ AU)» COOK), (NOT OK), (CALL BY GETBQ) COSNOV77) 
1437 INE "HT", *AU',3 
1438 INE "HT*,S "AL'S 1 
1439 LDA #1 | 
1440 ALS 18 : 
1441 TSXO ASBUF COSNOV77] 
1442 INE "Ha," *' 78 CHECK FOR CALL FROM GETBQ COSNOV?7) 
1443 IFE "H2%, "451 COSNOV?7) 
1444 TRA #3 UNAVAILABLE COIMAY79) 
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D LIST ELEMENT ALLOCATION MACROS 
1445 INE "82g oS COIMAY793 
1446 IFE "HS 5,8", 1 COIMAY79 3 
1447 TRA x+2 GOT IT COIMAY79) 
1448 INE "HS, 8 *,1 COMMAY79) 
1449 TRA #3 UNAVAILABLE COIMAY79) 
14590 TRA He GOT IT COMAY79) 
14514 ENDM GETB 
1452 * 
1453 * THE GETBQ MACRO RETURNS TO *4#1 WITH THE LIST ELEMENT. IF ONE IS 
1454 x NOT IMMEDIATLY AVAILABLE THE REQUEST IS QUEUED AND HANDLED WHEN 
1455 * THE MEMORY BECOMES AVAILABLE. . 
1456 x LENGTH IS AS IN GETB COSNOV?77) 
1457 * CO5NOV77]) 
1458 GET3a MACRO C(LENGTHsI/AL/AU) COSNOV77) 
1459 CRSM SAVESOFF COSNOV77) 
1460 GETS CHT) oat ATTEMPT TO GET A BUFFER COSNOV77) 
1461 TSXO ASBUFA IF CURRENTLY UNAVAILABLE» QUEUE FOR ONE COSNOV?77]) 
1462 CRSM RESTORE 
1463 ENDM GET8Q 
1464 x . 
1465 * THE REL MACRO RELEASES THE BLOCK POINTED TO BY T AND POPS T. 
1466 * 
1467 REL MACRO 
14683 TSxXO ABREL 
1469 ENDM REL 
1479 * 
1474 * THE SHRINK MACRO SHRINKS THE BLOCK POINTED TO BY XR TO THE 
1472 x LENGTH SPECIFIED 
1473 x 
1474 SHRINK MACRO (LENGTH,I/AU/ AL) / XR 
1475 EAX YeQ rhe POINTER TO LIST ELEMENT 
1476 INE THI oe AD" 9S 
1477 INE "HT",*AL',1 
1478 LDA #1 
1479 ALS 18 
1439 ESXG ASSHRI 
1431 END™M SHRINK 
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XPAND 
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LIST ELEMENT ALLOCATION MACROS 
EJECT 


THE EXPAND MACRO EXPANDS THE BLOCK POINTED TO BY THE LINK WORD 
OF THE BLOCK POINTED TO BY XR TO THE LENGTH SPECIFIED 


MACRO CLENGTHs»I/AU/AL) XR 


INE "H#1T',"AU',3 

INE "HI*, "AL'S 1 

LDA # 

ALS 18 

INE "X's, *H2' 21 

EAX KeQeoke POINTER TO POINTER 
TSXO ASEXP 

ENDM EXPAND 
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19710 
1511 
Tot 
15415 
eee s 
F525 
1516 
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1518 
Tory 
1529 
1521 
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Toe 
eo 
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a Se 
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L556 
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LOGF 
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ALARM 
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CONSOLE LOGGING MACROS 


Tits 


LOG LOGS MESSAGES TO BOTH THE CONSOLE AND THE LOG FILE. 


CONSOLE LOGGING MACROS 


CALL IT 


WITH UP TO TWELVE CHARACTERS OF TEXT AND UP TO FOUR ARGS TO BE 


PRINTED IN 


MACRO. 
CRSM 
STZ 
TSX 
BCI 
INE 
ARG 
INE 
ARG 
INE 
ARG 
INE 
ARG 
CRSM 
END™ 


SAME AS 


MACRO 
CRS™ 
SEZ 
S142 
TSXO 
BCI 
INE 
ARG 
INE 
ARG 
INE 
ARG 
INE 
ARG 
CRSM 
ENDM 


MACRO 
INHIB 
NOP 
INHIB 
ENDM 


OCTAL. 


THE LOG ROUTINE WILL APPEND THE TIME TO THE END, 


CTEXT) -WORD1 ra we c2WORDSG 


SAVE /OFF 
ISFLOG 
O,I$LOG 
a 


RESTORE 
LOG 


ABOVE BUT 


SAVE sSOFF 
IZFLOG 
ISFLOG 
ISLOG 


RESTORE 
LOGF 


SAVE-/OFF 
91356,DU 
RESTORE 
ALARM 


DON'T INHIBIT DEVICE OUTPUT 

CAN BE CALLED FROM THE OUTSIDE WORLD 
TEXT ARGUMENT 

ANY ARGUMENT HERE? 

YES» POINT TO IT 

SIMILARLY FOR THE REST 


NO LOGGING TO CONSOLE 


RING CONSOLE ALARM AFTER LOG 
UNINHIBIT 

SIGNAL ALARM WANTED 

RESTORE INHIBIT 
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CINSERT SEGMENT) DTSS TRADE SECRET 
CONSOLE LOGGING MACROS 

EJECT 

ORDER MACRO 


THIS PRINTS A MESSAGE ON THE DEVICE ASSIGNED FOR 
COMMUNICATION WITH THE OPERATOR, 


ORDERS BEGIN WITH VERBS 


NOT TO BE CALLED FROM I/0 INITIATION 


MACRO Ne (CTEXTSTRING) 

IFE #1,-0-1 

ARG ERROR IN ORDER MACRO 

TSX Ov ISORDER GOTO SUBROUTINE 

-TRA KET +HT TRANSFER AROUND TEXT 
8CI #1642727 27 

ENDM ORDER 
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COPY MACRO 
TTLS COPY MACRO 
* 
* 
* 
* 
COPY MACRO NUMBER OF WORDS TO TRANSFER-RESTART ADDRESS,/LWORKING BLOCKIPAGES 
LE "AHS','A',2 
GETD CSLISLN GET A WORKING BLOCK 
LEE 1e2ee 
STX TeTSLINK+#43 LINK USER WORK AREA PROPPERLY 
EAX Tr#S 
LCA #1 GET MINUS NUMBER OF WORDS TO TRANSFER 
STA CSSTAT2.T STORE IN LIST ELEMENT 
LDA Heo DL GET RESTART LOCATION ON COMPLETION OF COPY 
TRA CBCOPY AND COPY 
ENDM COPY 


48 


{ 
J 
| 
| 
J 
| 
J 
| 
| 
J 
j 


ty Oo oO oS. Oo & & Go Gs 


CO 0: «6 


O oD 


O 


oO: iy O ©: i Ge Go © GO O © Oo Oo Go Go Oo oo 


INSERT 06/18/81 


D 


06:56:28 


000001 
000002 
000003 
900004 
Q00005 
000006 
O00007 
909010 
900011 
O00012 
d00013 
0000174 
9090175 
900916 
000017 
900020 
000021 
NO0022 


DTSS EXECUTIVE CINSERT SEGMENT) 


* & + 


STAT2 
TEMPN 
OLDN 
F2DA 
BUEP 
STAT 
IODA 
SKIP 
CPYN 
RX 

RY 

RZ 
XKFER 
COM 
OFST1 
URET 
RRET 
LISLN 


DTSS TRADE SECRET 


COPY CONTROL LIST ELEMENT DEFINITION 


Piss COPY CONTROL LIST ELEMENT DEFINITION 
HEAD C FOR COPY 

EQU 1 

EQU 2 

EQU 3 

EQU 4 

EQU 5 

EQU 6 

EQU 7 

EQU 8 

EQU 9 

EQU 10 

EQU 11 

EQU 12 

EQU 13 

EQU 14 

EQU 15 

EWU 16 

FQU 17 

EQU 18 LENGTH OF LIST ELEMENT 
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PWORD 
XR 
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USEP 
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USAGE 
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CATALOG CONTROL LIST ELEMENT DEFINITIONS 
TS CATALOG CONTROL LIST ELEMENT DEFINITIONS 
CATALOGS ARE MANIPULATED BY THE FOLLOWING MACROS AND SUBROUTINES. 
THESE SUBROUTINES CALL THE CATALOG ROUTINES IN THE NEXT SECTION TO QUEUE 
CATALOG REQUESTS AND TO PERFORM CATALOG IO. 
WITH THE EXCEPTION OF THE MACROS WSCsr DUSEs ATACHs AND DTACH 
ALL CATALOG OPERATIONS ARE CONTROLLED BY A LIST ELEMENT POINTED TO 
BY XR - T. THE CONTENTS OF THIS LIST ELEMENT ARE AS FOLLOWS? 
HEAD C 
WORD 0 CONTAINS QSLINK / Q$RUN 
EQU 1 DEVICE ADDRESS OF CATALOG HEADER 
EQU ra NAME OF FILE BEING SEARCHED FOR (TWO WORDS) 
EQU 4 PASSWORD OF FILE (TWO WORDS) 
EQU 6 USED FOR SAVING REGISTERS Je Pe Se 0 (TWO WORDS) 
EU 3 RETURN FROM CATALOG SUBROUTINE CUPPER) 
EF Qu 8 POINTER TO CBUSE ENTRY CLOWER) 
EQU 9 USER PERMISSIONS FOR PROTECTION CHECKS (UPPER) 
EAU 9 FLAGS CONTROLLING OPERATION (LOWER) 
EQU 10 ACCESS WORD 
EQu 11 CODED DLU AND DLM FOR INSC 
EQU 12 USAGE COUNTER FOR INSC 
EQu 13 USER*S REG A FOR SLAVE TRAP 
EQU 14 USER'S REG Q@ FOR SLAVE TRAPS 
EQU 15 POINTER TO PASSWORD LIST CUPPER) 
EQU 15 POINTER TO PASSWORD LIST ELEMENT IFF SEPARATE (LOWER) 
EQU 16 BIT CODED WORD TELLING WHICH LEVELS HAVE PWS 
EQU 17 POINTER TO WORD BEYOND LAST WORD OF NAME IN TREE CUPPER) 
EQU NAMND POINTER TO STARING COR CURRENT IF IN CATS) NAME CLOWER) 
EQU 13 BITS FOR CCE CUPPER) 
EQu CBITS MME NUMBER FOR SLAVE TRAPS CUPPER) 
EQU 18 TERMBITS OF SLAVE TRAP (LOWER) 
EQU Le LENGTH OF LIST ELEMENT HEAD 
UPPER CATRePERMsPASPTsNAMND-CBITS»MMENO 


* 
* 

* 

PwD 
FILE 
OWN 
QUOTA 
NDATE 
NATCHI 
Ck 
CLIM 
NTMSK 


HELD 
* 


LOWER USEPsFLAG*/PASLEZNAMPTsZTACC 


BIT DEFINITIONS FOR CSFLAG 


BOOL 1 USER HAS SUPPLIED A PASSWORD 

BOOL 2 AN FCB EXISTS BEHIND THE CONTROLLING LIST ELEMENT 

BOOL 4 USER HAS OWNER PERMISSION ON THE CATALOG 

BOOL 10 QUOTA CHECKS SHOULD BE PERFORMED ON THE FILE 

BOOL 20 DO NOT CHECK CODED DATES IN FUSE SUBROUTINE 

BOOL 40 GFCBC SHOULD NOT GET A CSUSE LIST ENTRY 

BOOL 100 DO CLIMBING ACCESS FOR CATL AND CATS 

BOOL 200 BSCLI NEEDED ON DESTINATION FILE OF CATL 

BOOL 400 FLAGS AN ‘OLD' MME WHICH DOES NOT USE A TRAP MASK 
BSAPs BSRD,» BSWT FLAG NEEDED ACCESSES ON CATALOG 

BOOL 20000 FILE IS HELD NON=-DEALOCATABLE 


COIMAY79] 


COIMAY794 


COIMAY79] 
COIMAY79) 
COIMAY793 
COIMAY79) 
CLO9DEC79) 
COIMAY79) 


COIMAY79)3 


COIMAY79) 
COIMAY79) 
COIMAY79 J 
COIMAY799 
CO9DEC79I 
CO9DEC79] 
CO9DEC7TII 
CO9DEC7TII 


COIMAY79 4) 
COIMAY79 J 
COIMAY794 
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INSERT 06/13/81 
C 
000001 
g00002 
000004 
000010 
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1656 
1657 
1658 
1659 
1660 
1667 
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CATALOG CONTROL LIST ELEMENT 


BIT DEFINITIONS FOR CS$CBITS 


BOOL 
BOOL 
BOOL 
BOOL 
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USER 
USER 
USER 
USER 
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DEFINITIONS 


WISHES 
WISHES 
WISHES 
WISHES 


TO 
TO 
TO 
TO 


RENAME FILE 

REPASSWORD FILE 
CHANGE ACCESSES 
CHANGE DLU/DLM 
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INSERT 06/18/81 06:56:28 DOTSS EXECUTIVE CINSERT SEGMENT) DTSS TRADE SECRET PAGE 52 eS 
C CATALOG SUBROUTINES ~~ GENERAL MACROS 
1662 TTLS CATALOG SUBROUTINES ~- GENERAL MACROS O 
1663 * 
1664 * eS 
1665 * GENERAL MACROS 
1666 * 
1667 x O 
1668 * THE FOLLOWING MACRO GETS A POINTER TO A FILE CONTROL BLOCK IN THE USER'S 
1669 x STATE VECTOR. ARGUMENT #1 IS THE INDEX REGISTER CONTAINING THE FILE 
1670 * REFERENCE NUMBER OF THE DESIRED FCB. O 
1671 * 
1672 FCBPNT MACRO INDEX 
1673 L DX Ze SFRo HY GET A RELATIVE POINTER TO THE FILE CONTROL BLOCK O 
1674 XED ESFCBPT CHECK VALIDITY AND MAKE ABSOLUTE 
1675 ENDM FC BPNT 
1676 * C1I70CT76) 
1677 * GFR = THIS MACRO AND THE CORRESPONDING SUBROUTINE FINDS A NEW C170CT76) 
1678 * FILE REFERENCE NUMBER AND RETURNS IT IN REGISTER 'X'°, C170CT76) 
1679 * C170CT76) 
1680 GFR MACRO C170CT76) 
1631 TSxXO BGFR CALL THE APPROPRIATE SUBROUTINE C170CT76) 
1682 ENDM GFR C170CT76) 
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INSERT 06/18/81 06256228 
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1683 
1684 
1685 
1686 
1687 
1632 
1639 
1690 
1691 
1692 
1693 
1694 
1695 
1696 
1697 
1698 
1699 
1790 
1701 
1702 
1703 
1704 
1705 
1706 
ar eo a 
1703 
1709 
1719 
1744 
1712 
1713 
soe a es 
1715 
1716 
1717 
Eres 
10 Ve 
4729 
1721 
hice 
T1253 
1724 
Wicd 
1726 
172? 
gra! 
T#29 
17 oO) 
1731 
1732 
1733 
1734 
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QLOCK AND QNLOCK MACROS 
TTLS QLOCK AND QNLOCK MACROS O 
x C170CT76) 
* MULTIPROCESSING QUEUE LOCK AND UNLOCK MACROS C[170CT76] O 
* C170CT76) 
QLOCK MACRO C170CT76) 
TSXO XBQLOCK LOWER THE SEMAPHORE C170CT76) O 
ENDM QLOCK C170CT763 
* C[170CT76] 
QNLOCK MACRO C170CT763 O 
XED XSBQNLCK RAISE THE SEMAPHORE C170CT76) 
ENDM QNLOCK C[170CT76] 
* 
: © 
* THE WSC MACRO WRITES A SCRATCH CATALOG HEADER. IT SHOULD BE 
* CALLED WITH INDEX T POINTING TO A LIST ELEMENT CONTAINING THE OC 
x PROTOTYPE FOR THE HEADER. THE PREFERENCE DESIRED FOR THE CATALOG 
* SHOULD BE IN LOCATION CS$CDA OF THE LIST ELEMENT. UPON RETURN THE 
* LOCATION CS$CDA WILL CONTAIN THE DEVICE ADDRESS OF THE CREATED C) 
x HEADER. 
k ARGUMENT #1 IS THE LOCATION FOR ERROR RETURNS (CSTATUS IS 
* RETURNED IN THE A REGISTER), 42 IS A POINTER TO THE LENGTH WHICH O 
* SHOULD BE ALLOCATED FOR THE CATALOG. 
* 
* 
* o 
W5C MACRO WRITE SCRATCH CATALOG 
CRSM SAVEZON O 
GETD 8 SET UP LIST ELEMENT FOR ALLOCATION 
LDX XeTSLINK,T GET POINTER TO CAT FCB IN LIST ELEMENT 
ALC H2 oO et3r (CSCDALX) ALLOCATE STORAGE FOR HEADER O 
#3 REL RELEASE ALLOCATION CONTROL LIST ELEMENT 
LDA BSNSTOR,DU GET ERROR STATUS 
TRA #14 ALLOCATION FAILURE,» NO STORAGEs ERROR RETURN eS 
#6 LDA KENDAsT DEVICE ADDRESS FOR NEW SCRATCH CATALOG HEADER 
LDX XeTSLINKoT GET POINTER TO CATALOG HEADER IMAGE 
STA CHCDASX AND STORE IN IT THE NEW DEVICE ADDRESS © 
REL RELEASE THE ALLOCATION CONTROL LIST ELEMENT 
GETD IS0CWH1 SET UP LIST ELEMENT FOR I0 
LDA ISMDWRZDU GET WRITE COMMAND O 
STA ISMODE,T AND STORE IN IO LIST ELEMENT 
LDX XeTSLINK,AT GET POINTER TO CATALOG HEADER IMAGE 
LDA ChCDA,X AND GET DA FOR IO OPERATION O 
STA ISDACST AND STORE IN I0 LIST ELEMENT 
STx X,IlBOCWeT STORE STARTING ADDRESS OF I10 IN DCW 
EAQ CSHEADL LENGTH OF CATALOG HEADER O 
STZ CBCKSUM> X INITIALIZE CHECKSUM FIELD 
TSX Y*X$CKSUM COMPUTE HEADER CHECKSUM 
LDX X/TSLINKsT POINT TO PROTOTYPE HEADER AGAIN ‘@ 
STA CSCKSUM> X SET CHECKSUM IN HEADER 
LDX X/CSHEADL+1/-DU GET NUMBER OF WORDS TO TRANSFER 
SXL Xe I SO0CWrT AND STORE IN DCW O 
LDXO O,DU LOAD ADDRESS EXTENSION FOR CAT HEADER COSNOV77]) 
C 
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OO +O: GO 
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LIST ELEMENTS ARE IN FIRST 256K 

DO 10 OPERATION 

I/O COMPLETE» GET STATUS OF OPERATION 
GET RET BITSs WHICH GIVE STATUS 
TRANSFER IF I10 OPERATION OK 


SO DEALLOCATE PREVIOUSLY ALLOCATED SPACE 


RELEASE IO LIST ELEMENT 

GET ERROR STATUS 

AND GIVE ERROR RETURN 

IO IS OKs DONE, RELEASE 10 LIST ELEMENT 


O 
O INSERT 06/18/81 06:56:28 DTSS EXECUTIVE CINSERT SEGMENT) 
C QLOCK AND QNLOCK MACROS 
O 1735 SXLO ISADEXT,T 
1736 TSXO ISIO 
O 1737 LDA ISQUEWD,T 
17338 ANA =O07700-D0L 
1739 TZE #5 
O 1740 
1741 ERROR IN IO OPERATION, 
1742 
O 1743 REL 
1744 LDA BSRERR,DU 
T7435 TRA #4 
O 1746 #5 REL 
1747 CRSM™ RESTORE 
1748 ENDM WSC 
OC 
OC 
O 
OQ 
O 
‘é) 
OQ 
OQ 
'@) 
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C CATALOG OPERATIONS MACROS 
VV 1749 TTS CATALOG OPERATIONS MACROS COIWMAY79) 
1750 * 
O 1751 * 
1752 * CATC IS A MACRO TO SIEZE THE CATALOG ROUTINES 
1755 * IT GETS A CATALOG CONTROL LIST ELEMENT AND THEN RETURNS 
C) 1754 * WITHOUT READING IN A CATALOG 
det Dep * AS USUAL, OPERATIONS STATARTING WITH CATC MUST TERMINATE 
1756 * WITH A RELC MACRO 
am aed * 
O 1758 * 
ATO CATC MACRO CNO ARGUMENTS) 
O 1760 GETD CSCACC +1 GET A CATALOG CONTROL LIST ELEMENT 
1761 STZ QSRUN-T NO TASK TO DO 
Loe TSX Xe CS$CAT GO QUEUE THE OPERATION 
e@ 1763 ENDM CATC 
1764 * 
1765 * SFDA MACRO CALLS THE GFDA SUBROUTINE TO GET A FILE CONTROL 
C) 1766 * BLOCK FOR THE CURRENT ENTRY WITH JUST THE DA‘'S 
1767 * | 
1768 GFDA MACRO (NO ARGUMENTS) COIMAY?79] 
C) TLS? TSXO CSGFDA USE THE SUBROUTINE 
ie eee ENDM GFDA 
eS) 
‘S 
O 
O 
O 
O 
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INSERT 06/18/81 06:56:28 DTSS EXECUTIVE CINSERT SEGMENT) DTSS TRADE SECRET PAGE 56 O 
C CATALOG OPERATIONS MACROS 

1771 EJECT O 

1772 * 

i Nr ar a x O 

1774 * CATH IS A MACRO TO READ IN THE FIRST SEGMENT OF A CATALOG. 

1775 * ARGUMENT #1 FOR THE MACRO IS A POINTER TO THE DEVICE ADDRESS. 

1778 * POSSIBLE STATUS RETURNS IN CSCSTAT ARE O 

here * BSOK OPERATION SUCCESSFUL 

1778 * BERERR IO ERROR IN READING IN CATALOG 

1779 x BSUERR INFORMATION IN THE CATALOG HAS BEEN DESTROYED O 

1780 * 

1731 * 

17382 CATH MACRO DAPTR»*TRAPTOR'* TRAP MEANS SET SLAVE TRAP STUFF @ 

1783 CRSM SAVE,OFF 

1734 IFE H2e"TRAP' S42 | 

1785 GETD CSLELEN CO9DEC79II ©) 

1736 IFE Or141 

VITSH -GETD CSUSAGE+1 GET A CONTROLLING LIST ELEMENT 

17388 LDA CSBCRET-DL GET ADDRESS OF RETURN ROUTINE 

1789 STA QSRUNZT SAVE FOR TRANSFER ONCE HEADER IS READ IN 

1799 LDA #1 GET DEVICE ADDRESS OF CATALOG 

1791 STA CBHDAST SAVE IN CONTROL BLOCK 

1792 IFE H2e*TRAP',114 

1795 LDpaQ SBREGH4,5 C29JAN77) 

1794 STa CSAQ1,T [C29JAN77]) 

1795 LDQ SSREG+545 C29JAN77I 

1796 STQ CHAQ2,T C29JAN77]) 

1797 L DX X-S$IC,ZS GET POINTER TO MME+1 

1793 ADLX X-BBASE MAKE ABSOLUTE CO8AUG77) 

1799 MLDA ~1,X GET MME NUMBER CO8AUG77) 

1800 ANA -1,DU ONLY 

1891 ALS 9 SANS MME ID 

189? EAX X-0-AU PUT INTO X 

1803 STX XeCSMMENO,T SAVE FOR SLAVE TRAP 

1894 TSX Xe CSCAT SET RETURN IN XR-X AND ENTER CATALOG ROUTINE 

1805 CRSM RESTORE 

1896 END™ CATH 
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CATALOG OPERATIONS MACROS 


1807 EJECT 

1808 * 

1809 * 

1810 * 

1811 * CATL IS USED FOR 
1812 * 

1813 CATL MACRO 

43814 TSXO CSCTENT 
1815 ENDM CAEL 
1816 * 

13817 * 

18168 TCATL MACRO 

1319 TSXO CSTLENT 
1320 ENDM TCATL 
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‘FETCHING’ 
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CATL AND TCATL ARE MACROS FOR CALLING THE. CATALOG LOOKUP ROUTINE 


AND TCATL IS USED FOR 'TALLY' OPS. 
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COIMAY?794J 
COIMAY79 4] 
COIMAY79) 
COIMAY79) 
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1821 

1822 
1823 
1824 
1825 
1826 
1327 
1828 
1829 
1830 
1634 

1832 
1335 
1334 
18.35 
1336 
kes? 
1835 
1839 
1340 
1841 

1342 
1343 
1844 
7345 
1346 
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ATN 


EJECT 


MACRO 
CRSM 
IFE 
TSXO 
PE 
CATH 
LDA 
TNZ 
LDA 
ST.Cz2 
TRA 
CRSM 
ENDM 


BBOK 


BSFNC 


O 
DTSS TRADE SECRET PAGE 58 O 
CATALOG OPERATIONS MACROS 
O 
CATN IS A MACRO TO SEARCH FOR AN ENTRY WITH A GIVEN ENTRY O 
NUMBER IN A CATALOG. WHEN CALLING INDEX T POINTS TO A FILE CONTROL 
BLOCK FOR THE CATALOGED FILE WHOSE ENTRY IS BEING SOUGHT. POSSATBLE CQ 
STATUS RETURNS IN CSCSTAT ARE 
ENTRY WAS FOUND 
BBRERR IO ERROR IN READING CATALOG O 
BBUERR ENTRY WAS NOT FOUND OR CATALOG HAS BEEN DAMAGED 
FILE BECAME A SCRATCH FILE (NOT CATALOGED) 
© 
DA/NULL 
SAVE OFF 0 
"H#1T',*",2 IF FIRST ARGUMENT IS NULL 
CECATNA JUST CALL SUBROUTINE FOR SUCH 
17276 _ 
#1 READ IN HEADER OF CATALOG 
CSCSTAT CHECK STATUS OF READ 
w+G BAD -- DON'T DO CATN © 
CBHDA,T GET DA AGAIN 
CSCATReT SET RETURN 
CSCATAC JUMP INTO CATAC C 
RESTORE 
CATN 
S 
‘2 
S 
( 
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OQ 
oS INSERT 06/18/81 06:56:28 DTSS EXECUTIVE CINSERT SEGMENT) DTSS TRADE SECRET PAGE 59 
C CATALOG OPERATIONS MACROS 
VY 1847 EJECT 
1848 * 
e 1849 * 
1850 x FUSE IS A MACRO WHICH FINDS OR CREATES AN ENTRY IN THE CSUSE LIST 
1851 * FOR THE CURRENT ENTRY IN THE CURRENT CATALOG, IT SETS THE CSUSEFL FLAGS 
O 1852 * FOR THE ENTRY AND EXITS WITH A POINTER TO THE CSUSE ENTRY IN CSUSEC AND 
18253 * IN INDEX REGISTER X. 
1854 * ARGUMENT #1 IS THE ERROR RETURN IN CASE OF A CSUSE LIST OVERFLOW. 
O 1855 * ARGUMENT #2, IF PRESENT», SPECIFIES A SEPARATE RETURN TO BE TAKEN IF A 
1856 * CBUSE ENTRY ALREADY EXISTS AND WHICH DOES NOT UPDATE THE CSUSEFL FLAGS. 
1857 * IF EITHER ARGUMENT IS "* ERROR" A ZOP FAULT IS GENERATED, CO9DEC79) 
O 1858 * FUSE PRESERVES INDEX REGISTER Y., 
13859 * 
1860 * 
O 1861 x . 
13862 FUSE MACRO <OVERFLOW>s<DUPLICATE> CO9DEC79I J 
1863 IFE "HIT", *xERROR' 22 CO9DEC79IJ 
O 1864 EAA CHFUSED ERROR ON CHUSE LIST FULL CO9DEC79] 
1865 IFE Or1-1 CO9DEC79) 
1466 EAA #1 RETURN ON CSUSE LIST FULL CO9DEC?79] 
oO 1367 IFE "H2',* kKERROR' 42 CO9DEC79) 
1863 ORA CSFUSED,DL ERROR ON DUPLICATE ENTRY CO9DEC79 J 
1869 TRE? Orte2 CO9DEC79) 
O 1379 INE *H2ey, CO9DEC79I 
1871 ORA #2,D0L RETURN ON DUPLICATE ENTRY CO9DEC?79I 
1872 TSXO CSFUSE GO TO SUBROUTINE | 
O 1873 ENDM FUSE 
1874 * 
1875 * 
O 1876 * DUSE IS A MACRO TO DELETE THE ENTRY REFERENCED BY INDEX REGISTER X 
1377 k FROM THE CSUSE LIST. 
1878 x 
13879 * 
O 18580 DUSE MACRO 
1831 TSxO CSDUSE USE SUBROUTINE 
O 1882 END™ DUSE 
1833 * 
18R4 * 
O 1885 * INSC IS A MACRO TO INSERT A NEW ENTRY INTO A CATALOG WHICH HAS 
1886 * BEEN READ INTO CORE BY THE CATS MACRO. ON CALLING THE MACRO INDEX T 
1337 x POINTS TO THE CONTROLLING LIST ELEMENT FOR THE CATALOG OPERATION. 
O 1888 * THIS LIST ELEMENT IS LINKED IN TURN TO AN FCB FOR THE FILE TO BE ENTERED, 
1839 * UPON RETURN CSUSE CONTAINS AN ENTRY FOR THE NEW CATALOG ENTRY AND 
1399 * FECAT IN THE FILE FCB CONTAINS A POINTER TO THE CSUSE ENTRY FOR IT. 
O 1893 * POSSIBLE STATUS RETURNS CIN THE A REGISTER) ARE 
1892 * BSOK SUCCESSFUL 
1893 * BSQUEX ALOC/MAX CHECK FAILED 
QO 1894 * BSNSTOR CORE CATALOG FULL», ALL HEADER DA'S USED, OR 
1895 * TOO MANY ENTRIES IN THE CATALOG OR THE CSUSE LIST 
1896 * BSUERR BAD INFORMATION IN CATALOG 
O 1897 * 
1898 INSC MACRO 
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O INSERT 06/18/81 06:56:28 DTSS EXECUTIVE CINSERT SEGMENT) DTSS TRADE SECRET PAGE 60 
C CATALOG OPERATIONS MACROS 
O 1899 TSXO CHINSC 
1900 ENDM INSC 
1901 x 
O 1902 * 
1993 * RFCBC IS A MACRO WHICH UPDATES INFORMATION IN THE CURRENT CATALOG 
O 1904 * ENTRY. ON CALLING INDEX T POINTS TO THE CONTROLLING LIST ELEMENT SET UP 
1995 * BY THE CATN MACRO. THIS LIST ELEMENT IS LINKED IN TURN TO A FILE CONTROL 
19296 * BLOCK FOR THE FILE/CATALOG WHOSE ENTRY IS TO BE UPDATED. RFCBC UPDATES 
O 1907 * CODED DATES AND ALSO CSN AND CSCDA IF THE APPEND PERMISSION BIT IS SET 
1908 x IN THE FILE CONTROL BLOCK. UPON RETURN THE CSUSE ENTRY FOR THE FILE WILL 
1999 * HAVE BEEN UPDATED IF THE CATALOG ENTRY HAS BEEN MOVED. POSSIBLE STATUS 
O 1919 * RETURNS IN CSCSTAT ARE 
1911 * BOK SUCCESSFUL 
1912 x BSRERR IO ERROR IN REPLACING ENTRY 
6 1913 * BBUERR CATALOG HAS SEEN DAMAGED 
1914 * BSNSTOR CORE CATALOG IS FULL OR DA LIST OVERFLOWED 
1915 x 
O 4916 * 
1917 RFCS3C MACRO REPLACE FCB MACRO 
1918 TSXO CSRFCBC REPLACE FCB SUBROUTINE 
a 1919 ENDM RFCBC 
1920 ATACH MACRO ATTACH TO FILE 
1924 TSXO CBATTCH USE THE SUBROUTINE 
O 192? ENDM ATACH 
1923 DTACH MACRO MACRO TO CALL DETACH SUBROUTINE 
. 1924 TSxXO CBDTACH USE DTACH SUBROUTINE 
OC 1925 ENDM DTACH 
1926 * 
1927 * 
O 1923 * THE GFCBC MACRO COPIES THE CURRENT ENTRY IN THE CATALOG INTO A FILE 
1929 * CONTROL BLOCK PROVIDING THAT THE NECESSARY ACCESS AND CONFLICT CHECKS ARE 
1930 * PASSED. ON ENTRY INDEX T POINTS TO THE CONTROLLING LIST ELEMENT. CSCACC 
O 1931 * IN THIS LIST ELEMENT CONTAINS THE ACCESSES DESIRED ON THE FILE (UPPER) 
1932 * AND THE ACCESSES REQUIRED ON THE FILE (LOWER). IF ALL REQUIRED ACCESSES 
1933 * ARE AVAILABLE» A FILE CONTROL BLOCK FOR THE FILE WILL BE INSERTED IN 
O 1934 * THE LIST ELEMENT CHAIN BEHIND THE CONTROLLING LIST ELEMENT. AN ENTRY IN 
1935 * THE CSUSE LIST WILL HAVE BEEN MADE FOR THE FILE SHOWING THE ATTACHMENTS 
1936 * OBTAINED, AND CSUSEC WILL POINT TO THIS ENTRY. POSSIBLE STATUS RETURNS 
O 1937 * IN THE A REGISTER ARE AS FOLLOWS, 
4938 * BbOK SUCCESSFUL ~- A FILE CONTROL BLOCK WAS O8TAINED 
1939 * BSLOK LOCKOUT ~~ A REQUIRED ACCESS WAS BUSY 
C) 1940 * BSPRV PROTECTION VIOLATION 
1944 * BRFAL FAIL == A REQUIRED ACCESS WAS NOT ALLOWED 
1942 * BBCLE NO INFO IF CLIMB WITHOUT SEARCH 
O 1943 * BSQUEX THE CATALOG ALOC EXCEEDED TWICE ITS MAX AND CS$QUOTA WAS SET 
1944 * BENSTOR THE CSUSE LIST IS FULL 
1945 * 
1946 GFCBC MACRO GET FILE CONTROL BLOCK FOR CURRENT FILE 


1947 TSXO CS3GFCB TRANSFER TO SUBROUTINE 
1948 ENDM GFCBC 
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C CATALOG OPERATIONS MACROS 
1951 * RELC RELEASES A CATALOG, CAUSING IT TO BE WRITTEN OUT IF NECESSARY,» 
1952 * AND STARTS THE NEXT CATALOG TASK. 
1953 x 
1954 * 
1955 RELC MACRO RELEASE CATALOG 
1956 TSXO CSRELC 
1957 ENDM™ RELC 
1958 * 
1959 * 
1960 * DELC DELETES THE CURRENT ENTRY FROM THE CURRENT CATALOG. 
1961 * 
1962 * 
1963 DELC MACRO 
1964 TSXO CSDELC CALL SUBROUTINE 
1965 ENDM DELC 
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¢ MACROS 
O 1966 TTLS MACROS 
1967 * 
1968 * 
O 1969 * 
1970 x 
O V7 4 * GTIM--LOADS TIME CTIMER UNITS) INTO A REG 
1972 * 
1973 GTIM MACRO NO ARGUMENTS 
O 1974 TSXO XSGTIM RETURN TIMER UNITS IN A 
1975 ENDM GTIM 
1976 * 
O 1977 * FOLLOWING MACRO IS USED TO COPY FROM/TO PROTECTED AREAS 
1978 * 5S ARGS -— FCB=-FROM-PTER=FROM,FCB-TOsPTER~TO*ZRETURN ADDRESS 
1979 * USES SPECIAL FCBS AND POINTERS -~- SEE BELOW 
O 1980 * LENGTH OF COPY IN WORD FOLLOWING POINTER~FROM 
19814 x 
1982 OVCPY MACRO FCBF,/-PTRFsFCBT/PTRT RET 
O 1983 TSXO OVCPY 
1984 TRA #5 
1985 ZERO H1,#e 
O 1986 ZERO H37H#4 
1987 ENDM OVCPY 
1988 * 
O 1989 * 
1990 * 
1991 * FREE 
O 1992 * 
1993 * THIS MACRO AND SUBROUTINE RELEASES A CHANNEL WHICH 
1994 * WAS SIEZED VIA THE STEZE MACRO, REGISTERS WILL BE DESTROYED 
O 1995 * ON EXITs AND EXIT IS NOT GUARANTEED TO BE IMMEDIATE. 
1996. * 
1997 FREE MACRO *PuB! 
O 1998 INE "#1',* PUB! WE ONLY FREE PUBS 
1999 ARGER. SET ARGER.AI FLAG BAD ARGUMENTS 
2009 TSXO ISFREE 
2001 ENDM FREE 
O 2002 * 
2093 * 
OC 2004 x 
2005 * MACRO TO SIEZE A SPECIFIC CHANNEL. RETURNS TO 
2006 * CALL+1 ILLEGAL CHANNEL 
C) 2007 * CALL+2 XRP CONTAINS PUBS INDEX 
2908 * CALL+3 XRP CONTAINS PUB INDEX OF RELEASED CHANNEL 
2009 * . 
O 2010 * NOTE THAT A VALID LIST ELEMENT POINTER MUST BE STORED IN 
20171 * QEBUSY+#P$Q,-P AND THE FREE MACRO INVOKED UNDER THE CONTROL 
2012 * OF THAT LIST ELEMENT IN ORDER TO RELEASE A CHANNEL SIEZED BY 
OC 2013 x THIS MACRO. 
2014 * 
2015 * MAY DESTROY ANY REGISTER BUT XRT. 
oO 2016 * 
2017 CHAN MACRO (CHANNELA) 
oO 
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C MACROS 
2018 EAA #1 CI18AUG76) 
2019 TSXO ISCHAN C18AUG76] 
2020 ENDM CHAN C1 8AUG76] 
2024 * C1I18AUG76) 
2022 * C170CT76) 
2023 * RFCB & RFCBA -=- THESE TWO MACROS AND THE CORRESPONDING C170CT76) 
2024 * SUBROUTINES REPLACE THE FCB OF THE FILE REFERENCE NUMBER C170CT76] 
2025 * IN REGISTER *P* WITH THE FCB IN THE LIST ELEMENT POINTED C170CT76) 
2026 * LO BY 2s THE LIST ELEMENT IS THEN DEALLOCATED, RFC3 CI70CT76] 
2027 * REPLACES THE ENTIRE FCB, RFCBA REPLACES ALL BUT FSABORT CI7OCT76) 
2026 * AND IS CALLED AT THE CONCLUSION OF A COPY. C170CT76) 
2029 * C170CT76) 
2030 RFCB MACRO C170CT76) 
2031 TSXO SBRFCB CALL THE SUBROUTINE C170CT76]) 
2U5e2 ENDM RFCB C170CT76) 
2033 x 
2034 * 
2035 * FCBLIS COPIES A FILE CONTROL BLOCK POINTED TO BY P TO A LIST ELEMENT. 
201136 * IF P IS ZEROs THEN A CORE FCB IS COPIED IF #1 IS NULL AND A FCB FOR 
2037 * THE MFD IS COPIED IF #1 = MFD. 
2038 * 
2039 FOBL.TS MACRO 
2040 EE "HI*,'"MFD' 22 
2041 TSXO ESFCBLM SUBROUTINE ENTRY FOR MFD COPY 
2042 IFE 0,1 OTHERWISE 
2043 TSXO ES FOALS SUBROUTINE ENTRY FOR CORE FCB 
2044 ENDM FCRLTS 
2045 * 
2046 * 
2047 DEALOC MACRO 
2048 LDA KSDLC,DL GET ADD OF ROUTINE 
2049 MTQA QUEUE THE TASK 
2050 L DX Te TSLINKsT POP T 
2051 ENDM DEALOC 
252 * 
2953 * 
2054 SPEBLK MACRO CONDITIONALLY UNROADBLOCKS JOB 
2059 TSXO ESEQNCQ WAKE JOB UP IF NECESSARY 
2056 ENDM SPEBLK 
2057 * 
2958 * 
2059 x THE FOLLOWING MACROS ARE USED TO ADD OR DELETE JOBS FROM THE 
2060 * CORE QUEUE OR NON-CORE QUEUE. THE EACH TAKE AS THE FIRST ARGUMENT 
2061 * EITHER *CQ" OR ®NCQ®, IN ADDITIONs IF THE SECOND ARGUMENT TO EQJ 
2062 * IS NOT NULL», THE JOB WILL BE ADDED TO THE FRONT OF THE SPECIFIED 
2063 * QUEUE, 
2064 * 
2065 EQJ MACRO QUEUENAME 
2066 LFE "H2%,'"",6 
2067 L DX X/SATI SET X TO INSERT JOB NUMBER 
20638 STX Je JI SCQ +X STORE J IN THE END OF THE CHAIN 
2069 LDX X70DU SET LAST LINK 
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2070 
2071 
202 
2073 
2074 
2075 
2076 
cure 
207% 
2079 
2080 
2081 
ra a 
2083 
2034 
cUS> 
2086 
2087 
20238 
2089 
2099 
2091 
2092 
2093 
2094 
L095 
2096 
2097 
2098 
2099 
2190 
2111 
elie 
20S 
2104 
2195 
2196 
QOS 
2108 
2109 
2110 
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Dud 


#5 


#6 


ENQJ 


MACROS 


STX 
STX 
INE 
L DX 
TNZ 
STX 
ST X 
STX 
ENDM 


MACRO 
CRSM 
EAX 
CMPX 
TZE 
LDX 
TNZ 
TRA 
L DX 
STX 
TNZ 
STX 
NULL 
CRSM 
ENDM 


MACRO 
CRSM 
INE 
LEE 
GETD 
DPE 
GETD 
LEE 
ERROR 
LDQ 
TSXO 
CRSM 
ENDM 
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Xe JECQ2J 
JAI 
"Ho gp 5 
Xe SHIF 
x+2? 

Je S11 

Xe JSCQ,J 
JoBH1F 
EQJ 


QUEUENAME 
SAVEsON 
Ye/SHIBEG 
Je JSECQY 
#5 

Ye JSCQZY 
HG 

#6 
XeJBCQeS 
Xe/JSECQZY 
#6 
YeBH1I 


RESTORE 
DQJ 


LENGTHsJUMP 
SAVEsSOFF 
"Hite "os 
H1 e102 
1,NBUG 
C,1,1 

#1 
‘yre,ee 

i 

Her DL 
ESBENQS 
RESTORE 
ENQJ 
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EQUAL TO ZERO 
UPDATE INSERT POINTER TO J 


GET POINTER TO FIRST JOB 

SKIP IF QUEUE NOT EMPTY 

UPDATE INSERT POINTER IF QUEUE EMPTY 
LINK FORMER JOB TO J 

MAKE J FIRST 


GET RELATIVE BEGINNING OF QUEUE 
SEE IF IT POINTS TO THIS JOB 
YES» GO UNLINK JOB 

STEP ALONG THE CHAIN 

CONTINUE IF MORE JOBS 

EXIT IF J NOT ON THE QUEUE 

GET LOOKAHEAD POINTER 

UNLINK JOB 

EXIT IF NOT LAST 

ELSE UPDATE THE INSERT POINTER 


OR NULL 


GET LIST ELEMENT FOR MLINK TASK 


GET RESTART ADDRESS 
QUEUE FOR J08 
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2114 
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2122 
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MACROS 
EJECT 
* 
* 
* TREE IS A MACRO WHICH CALLS A SUBROUTINE OF THE SAME NAME 
* TO SEARCH THE JOB TREE FOR JOBS RUNNING BELOW THE JOB WITH NUMBER J, 
* EACH TIME SUCH A JOB IS FOUND A TSXO 41 IS EXECUTED, SO THAT A 
x SUBROUTINE CAN BE INSERTED TO PERFORM ANY DESIRED FUNCTION. 
. RETURNING BY A TRA 0-0 WILL CONTINUE THE SEARCH THROUGH THE JOB 
* TREE, WHILE A TRA 1,0 WILL CAUSE THE SUBTREE BELOW THE JOB JUST 
* FOUND TO BE IGNORED. 
* 
* 
TREE MACRO ADDRESS OF SUBROUTINE 
EAX X,#1 SUBROUTINE ADDRESS TO X 
TSXO ESTREE GO TO TREE ROUTINE 
ENDM TREE 
* 
DECCT MACRO COUNTER DECREASE COUNT 
LCA 1/DL GET A MINUS ONE 
ASA #1 ADD TO APPROPRIATE COUNTER 
TMI $ZOPFs% ERROR IF IT WENT NEGATIV 
ENDM DECCT 
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009001 2146 
990002 2147 
900003 2148 
990004 2149 
999005 2159 
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000006 2152 
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PLACE 
NDA 
LYPR 
RET 
SIZE 
LOWER 
UPPER 
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PAGE TABLE SIZE DEFINITIONS 

TTLS PAGE TABLE SIZE DEFINITIONS © 
© 

HEAD K aX 

EQU 4 ® 

EQu 192 CO8AUG77] 

DEFINITION FOR STORAGE ALLOCATION LIST ELEMENTS O 

HEAD K O 

EQU 1 

EQU 2 ‘ 

EQU 3 O 

Eau d 

E Q U 5 roo 

EQU 5 VL 

EWU 6 

Eau 7 O 
OC) 
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e154 
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e138 
2157 
2158 
ZA? 
21769 
2164 
2162 
2 bOS 
2164 
2165 
2-60 
216? 
2165 
2169 
217i) 
eres 
2172 
2173 
2174 
ae as 
2176 
C177 
Celts 
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PIO 


PIO MACRO 


ETES PIO MACRO 


THE FOLLOWING MACRO CALLS THE PHYSICAL I1/0 ROUTINE XS$PIO 


MACRO PDA*s/DCW* s+ COMMAND*, STATUS*,CPC/MPC/TIMOUT TIME 


REM 

TSX0 XSPIO 

ARG #1 PTR TO PDA 

ARG He PTR TO DCw 

ARG #3 PTR TO COMMAND 

ARG #4 PTR TO STATUS PAIR 
1 es "HO, % 72 
ARG 17DU ASSUME MPC CHANNEL 
Lr Orile? 

LEE "HS*,*CPC',2 

ARG 0,0U SET CPC CHANNEL 

1 FE O14 

Lee "HS*,*MPC',2 

ARG 1,0U SET MPC CHANNEL 
PEE Or171 

ARG HS POINT TO CHANNEL TYPE 
IFE "HO 9 ** 

ARG 1O/DL SET DEFAULT 10 SECOND TIMEOUT TIME 
INE ui 0 saa eld 

ARG. #6 Sed “hEMEOUT. Tite 
ENDM PIO 
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XLOG MACRO 

2180 TTLS XLOG MACRO 

2181 * 

2182 * 

2183 * LOG MACRO -- SEE LOG ROUTINE FOR CALLING SEQUENCE 

2184 * 

2185 XLOG MACRO CTEXT) -ARGI+FARG2 oe we cARGB 

2186 TSXO X$bLOG 

2137 CRSM SAVE-*ON 

2188 PMC SAVESOFF DISABLE MACRO LISTING 

2189 ZERO #61462 

2190 LOGSET SET * 

21974 INE i et aa ae 

2192 UTEXT \AITN 

2193 #62 EQU *-LOGSET 

2194 CRSM SAVE/OFF 

2195 PMC RESTORE ENABLE MACRO LISTING 

2196 INE Rie tg? 

2197 ARG #2 

2198 INE i, See a 

2199 ARG #3 

2200 INE "H#4','' 

2201 ARG #4 

2202 INE os ae a 

2203 ARG #5 

2204 INE "HO" go? * 

2205 ARG #6 

2206 INE Le A dear a 

2207 ARG #7 

2208 INE Tho Gt 

2209 ARG #8 

2210 INE PHO, 

2211 ARG #9 

2212 CRS™M RESTORE 

2213 PMC SAVESOFF DISABLE MACRO LISTING 

2214 #61 ~ NULL 

2245 PMC RESTORE ENABLE MACRO LISTING 

2216 CRSM RESTORE 

2217 ENDM XLOG 
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OMMBX 


COMIMW 
COMIOM 
PDACON 
PDARDR 
PDATAP 
PDAENYV 
COMARL 
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PIO INITIALIZATION COMM AREA DEFINITIONS 


TEL 


) PIO INITIALIZATION COMM AREA DEFINITIONS 


THE FOLLOWING SYMBOLS DEFINE OFFSETS IN THE PIO INIT COMM AREA. 
THIS COMM AREA SHOULD BE SET UP BEFORE CALLING PIONIT. 


EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


Ger 
LOW 


END 


HEA 


(UPPER) 
CLOWER) 
CUPPER) 
(UPPER) 
CUPPER) 
CUPPER) 


OCONA UE OWN N BO 


MBX BASE/PORT 
MBX BASE/PORT 
MBX BASE/PORT 
MBX BASE/PORT 


NUMBER FOR IOM 
NUMBER FOR I0M 
NUMBER FOR IOM 
NUMBER FOR I0OM 
ADDRESS OF IMW AREA 

IOM NUMBER OF BOOT IOM 

PDA FOR CONSOLE 

PDA FOR READER 

PDA FOR TAPE 

PDA FOR ENV DECK DEVICE 


wR Re 
INN = © 


LENGTH OF COMM AREA 


ER COMIMwePDACONsPDARDR-PDATAPSPDAENV 


ER COMIOM 


OF INSERT FILE 
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gg0000 


2246 
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2253 
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2255 
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2260 
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22635 
2264 
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2266 
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=" PRODUCT TRACKING AND GENERAL INFO DEFINITIONS 
ETES “"— PRODUCT TRACKING AND GENERAL INFO DEFINITIONS 
* 
* “" GENERAL INFORMATION BLOCK 
* 
HEAD W 
* 
GIFLG EQU 0 “*" GENERAL INFORMATION FLAGS 
GIPUN Eu GIFLG+1 “" PRODUCT TRACKING STARTING UNITS 
GIPBT EQU GIPUN+1 “* PRODUCT TRACKING STARTING BTIME 
GIPTK EQU GIPBT+1 “" PRODUCT TRACKING CONTROL AND USER INFO 
x 
GIBKL EQU GIPTK+9 “" LENGTH OF GENERAL INFORMATION BLOCK 
* 
* . 
* “" GENERAL INFORMATION FLAG DEFINITIONS 
x 
GPEPT BOOL 400000 “= PRODUCT TRACKING IN PROGRESS 
* 
x 
* “" PRODUCT TRACKING BLOCK DEFINITION 
* 
PTBAS EQU QBRUN+1 “*" STARTING LOCATION 
PTUSR EQU PTBAS+1 “" USER NUMBER (2 WORDS) 
PGE EQU PTUSR+2 “" GENERAL INFORMATION FROM GIF BLOCK 
PTEUN EQU PTGIF+GIBKL "* ENDING UNITS 
PLES! FQU PTEUN+1 7" FINAL B-TIMER 
PTEWC EQU PTEBT +1 “* FINAL WALL CLOCK 
PTEDT E Qu PTEWC+1 “" DATE (2 WORDS) 
PTFAC EQU PT EDT #2 “" STATE VECTOR CPFAC/FIOFACsASFAC/PID(3)2UMPY 
PIN EQU PTFAC+7 “" CORE LENGTH AT END 
* 
PTEND Eau PTCLN+1 “" LENGTH OF ENTIRE BLOCK 
PTBKL EGU PTEND-PTBAS “* ACTUAL PRODUCT TRACK INFO 
* 
* 
x 
THE END 
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AP 
EX 
RD 
wT 
CAP 
CFC 
CFD 
CFR 
Cw 
DFE 
MDA 
OWN 
Sf 
ECL 
CFGA 
NTPD 
BNEPS 
3 RSVD 
B RSVS 
3 SWAP 
BCFRVM 
BSWREA 
C CATR 
CLEN 
DALT 
FLAG 
PERM 
TACC 
TPE 
G USP 
CCB ITS 
CENTRY 
CINDEX 
CMMENO 
CNAMND 
CNAMPT 
COMIMW 
COMIOM 
CPAS EE 
CPASPT 
F J 
F FR 
F ACC 
> ELE 
F DFR 
F RET 
Fo SFR 
F 
F 
F 
I 
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MANOA AA 


LINK 
TYPE 
ABORT 
CMD 
DAC 


630 
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